home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / divers / biorythm.sha < prev    next >
Encoding:
Text File  |  1994-03-01  |  1.1 KB  |  28 lines
  1. 10 REM Biorythme
  2. 20 REM base de donnees: Wtel 24/24 (16) 62.93.74.05
  3. 30 REM
  4. 40 MODE 5
  5. 50 INPUT "DATE NAIS:(jjmmaa):";D$:IF D$="" THEN GOTO 10
  6. 60 J$=MID$(D$,1,2):M$=MID$(D$,3,2):A$=MID$(D$,5,2)
  7. 70 J=VAL(J$):M=VAL(M$):A=VAL(A$)
  8. 80 INPUT "DATE ACTUELLE(jjmmaa):";D$
  9. 90 K$=MID$(D$,1,2):N$=MID$(D$,3,2):B$=MID$(D$,5,2)
  10. 100 K=VAL(K$):N=VAL(N$):B=VAL(B$):D=365*(B-A-1)
  11. 110 U=A+1:IF M<=2 THEN U=A
  12. 120 V=B:IF N>2 THEN V=B+1
  13. 130 FOR I=U TO V:IF FRAC(I/4)=0 THEN D=D+1
  14. 140 NEXT I
  15. 150 IF N<>1 THEN RESTORE 1000:FOR I=1 TO N-1:READ X:D=D+X:NEXT I
  16. 160 D=D+K:RESTORE 240 :FOR I=1 TO M:READ X:NEXT I:D=D+X-J
  17. 170 IF M<>12 THEN RESTORE 1100:FOR I=M+1 TO 12:READ X:D=D+X:NEXT I
  18. 180 RESTORE 260 :CLS:FOR I=1 TO 3:READ D$,T:PRINT D$;
  19. 190 E=FRAC(D/T):PRINT INT(10*SIN(2*PI*E));
  20. 200 Q=SGN(COS(2*PI*E)):D$=CHR$(230):IF Q=1THEN D$=CHR$(227)
  21. 210 IF Q=-1 THEN D$=CHR$(229)
  22. 220 PRINT D$;:IF I<>3 THEN PRINT "  ";
  23. 230 NEXT I:Q$=INPUT$(1):CLS:GOTO 80
  24. 240  DATA 31,28,31,30,31,30,31,31,30,31,30,31
  25. 250  DATA 31,30,31,30,31,31,30,31,30,31,28,31
  26. 260  DATA "Ph:",23,"Se:",28,"In:",33
  27. 270  REM SE:SEXE
  28.